%let logdir=F:\Trials\310505 Novartis Fenistil Hydrocort\5-ST\02. PRG\8-REP\log\;

/*Test subversion again and again*/

/*POJ new*/

*proc printto log="&logdir.imp_libraries.log" new;
run;

**************************************************************************
Filename                 : imp_libraries 
Author                   : Pablo Orosco Joerger
Date                     : July 02, 2012  
Platform                 : Windows XP / SAS 9.2 / EG 4.3
Protocol                 : 310505 Novartis   
Description              : Libraries
Version                  : 1
Modified by              : -
Modification date        : -
Modification description : -
**************************************************************************;

/*system options*/
OPTIONS MRECALL MPRINT MLOGIC SYMBOLGEN mergenoby=error noFmtErr errorcheck=strict 
    serror notes LOCALE=en_us nounbuflog nodate nonumber nospool nocenter nodate nonumber 
    mprint missing = " " validvarname = any NoQuoteLenMax LRECL=1000 mergenoby=nowarn 
    varlenchk=nowarn;

/* alle relevanten Tabellen in 'Tables and Graphs' */
%let studyno  = 310505;
%let studynox = 310505;
%let sponsno = 310505BS;
%let path1 = F:\Trials\310505 Novartis Fenistil Hydrocort\5-ST\02. PRG\;
libname e&studyno. "&path1.4-DB-EXP";
libname s&studyno. "&path1.5-DB-SAS";
libname i&studyno. "&path1.6-DB-INI";
libname a&studyno. "&path1.7-DB-ANA";
%let outputpath =   &path1.8-REP;
options fmtsearch=(e&studyno. work);

/* Define Header for portrait and landscape */
ods escapechar =  '^';

/* %let htitle = "^S={preimage='F:\daten\logos\dow-logo-inc_2.png'}" */
%let htitle = "^S={preimage='F:\daten\logos\bioskin_sas.png'}" 
    " ^R/RTF'\par \trowd \trql\trgaph30\trrh280\trleft0
    \clvertalb\cellx3500
    \trautofit1\clvertalc\clbrdrb\brdrs\clwWidth15000\cellx15000
    \pard \intbl\fs6\cell 
    \pard \intbl \b\fs28\qr'                     ^R/RTF'\par\line\qr\b\fs28'                   &sponsno. ^R/RTF'\cell 
    \pard \intbl \row
    \trowd \trql\trgaph30\trrh280\trleft0 
    \cellx3500
    \trautofit1\clvertalb\clwWidth15000\cellx15000
    \pard\intbl \cell 
    \pard \intbl\b\fs20\qr 'Page ^{pageof} ^R/RTF'\cell 
    \pard \intbl \row \pard'";

/* footnote for listing output with current date and time */
data _null_;
    dt=today();
    tm=time();
    call symput ('realdate',put(dt,date9.));
    call symput ('realtime',put(tm,time5.));
run;

%let fnote = " ^S={just= l font=('Arial',8pt,bold) color=red}ATTENTION!! All data are dummy.  ^S={just=r font=('Arial',8pt) color = black} Generated on &realdate &realtime";

/*%let fnote = "^S={just=r font=('Arial',8pt)} Generated on &realdate &realtime..";*/

/*
The table row begins with the \trowd control word and ends with the \row control word. 
Every paragraph that is contained in a table row must have the \intbl control word 
specified or inherited from the previous paragraph. 
A cell may have more than one paragraph in it;
the cell is terminated by a cell mark (the \cell control word), 
and the row is terminated by a row mark (the \row control word). 

pard      - Resets to default paragraph properties
trgaphx   - Half the space between the cells of a table row in twips
trleftx   - Position of the leftmost edge of the table with respect to the left edge of its column
trrhx     - Height of a table row in twips.
trql      - Left-justifies a table row with respect to its containing column (also center c, right r)
clbrdrb   - Bottom table cell border (also top t left l right r)
brdrs     - Single-thickness border
brdrth    - Double-thickness border
clvertalb - Text is bottom-aligned in cell (also centered c top t)
cellx     - Defines the right boundary of a table cell, including its half of the space between cells
clwWidthx - Preferred cell width. Overrides \trautofitN
trautofitx- AutoFit: 0 No AutoFit (default); 1 AutoFit is on for the row. Overridden by \clwWidthN and \trwWidthN in any table row
fsx       - Font size
par       - Paragraph
line      - New line
b         - Bold
qr        - Right-aligned (also qc centered ql left-aligned)
ul        - Underline
*/
proc printto log=log;
run;
